(define (make-accumulator add)
  (let ((sum add))
   (lambda (x) (begin (set! sum (+ sum x)) sum))))
